home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / bonus / form1.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1998-04-09  |  4.2 KB  |  130 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Bonus Retieval System"
  4.    ClientHeight    =   5700
  5.    ClientLeft      =   435
  6.    ClientTop       =   645
  7.    ClientWidth     =   8385
  8.    BeginProperty Font 
  9.       Name            =   "MS Sans Serif"
  10.       Size            =   8.25
  11.       Charset         =   177
  12.       Weight          =   700
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    ForeColor       =   &H80000008&
  18.    LinkTopic       =   "Form1"
  19.    PaletteMode     =   1  'UseZOrder
  20.    ScaleHeight     =   5700
  21.    ScaleWidth      =   8385
  22.    Begin VB.CommandButton Command2 
  23.       BackColor       =   &H80000005&
  24.       Caption         =   "E&xit"
  25.       Height          =   375
  26.       Left            =   3840
  27.       TabIndex        =   1
  28.       Top             =   3960
  29.       Width           =   1215
  30.    End
  31.    Begin VB.CommandButton OK 
  32.       BackColor       =   &H80000005&
  33.       Caption         =   "&OK"
  34.       Height          =   375
  35.       Left            =   3840
  36.       TabIndex        =   0
  37.       Top             =   3360
  38.       Width           =   1215
  39.    End
  40.    Begin VB.Label Label3 
  41.       BackStyle       =   0  'Transparent
  42.       Caption         =   "Yearly Bonus Checks Are Here!!"
  43.       BeginProperty Font 
  44.          Name            =   "Comic Sans MS"
  45.          Size            =   14.25
  46.          Charset         =   0
  47.          Weight          =   700
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       Height          =   375
  53.       Left            =   1800
  54.       TabIndex        =   4
  55.       Top             =   1920
  56.       Width           =   5415
  57.    End
  58.    Begin VB.Label Label2 
  59.       BackStyle       =   0  'Transparent
  60.       Caption         =   "Click here to receive your bonus."
  61.       BeginProperty Font 
  62.          Name            =   "Comic Sans MS"
  63.          Size            =   14.25
  64.          Charset         =   0
  65.          Weight          =   700
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       Height          =   375
  71.       Left            =   1800
  72.       TabIndex        =   3
  73.       Top             =   2520
  74.       Width           =   4695
  75.    End
  76.    Begin VB.Label Label1 
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "Well, It's that time of year again..."
  79.       BeginProperty Font 
  80.          Name            =   "Comic Sans MS"
  81.          Size            =   20.25
  82.          Charset         =   0
  83.          Weight          =   700
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       Height          =   615
  89.       Left            =   1200
  90.       TabIndex        =   2
  91.       Top             =   1200
  92.       Width           =   6495
  93.    End
  94. Attribute VB_Name = "Form1"
  95. Attribute VB_GlobalNameSpace = False
  96. Attribute VB_Creatable = False
  97. Attribute VB_PredeclaredId = True
  98. Attribute VB_Exposed = False
  99. Option Explicit
  100. Dim m001A As Integer
  101. Dim m001C As Integer
  102. Sub Command2_Click()
  103.     End
  104. End Sub
  105. Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  106.     m001A = X
  107.     m001C = Y
  108. End Sub
  109. Sub OK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  110.     If ((m001A > OK.Left + (OK.Width / 2)) And (m001C > OK.Top + (OK.Height / 2))) Then
  111.       OK.Left = OK.Left - 100
  112.       OK.Top = OK.Top - 100
  113.     Else
  114.       If ((m001A > OK.Left + (OK.Width / 2)) And (m001C < OK.Top + (OK.Height / 2))) Then
  115.         OK.Left = OK.Left - 100
  116.         OK.Top = OK.Top + 100
  117.       Else
  118.         If ((m001A < OK.Left + (OK.Width / 2)) And (m001C > OK.Top + (OK.Height / 2))) Then
  119.           OK.Left = OK.Left + 100
  120.           OK.Top = OK.Top - 100
  121.         Else
  122.           If ((m001A < OK.Left + (OK.Width / 2)) And (m001C < OK.Top + (OK.Height / 2))) Then
  123.             OK.Left = OK.Left + 100
  124.             OK.Top = OK.Top + 100
  125.           End If
  126.         End If
  127.       End If
  128.     End If
  129. End Sub
  130.